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ABSTRACT 


“This report gives general computer programs and tables of computa- 


tions for linear wire antennas and scatterers with arbitrary excitations 


and loads. The parameters calculated include the input impedance of wire 
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of loaded wire antennas, mutual admittance between collinear antennas, 
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monostatic and bistatic scattering from linear wires both loaded and un- i Ys 
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loaded, and general admittance parameters for loaded wire scatterers. The esis 
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computations are for wires of length-to-diameter ratios ranging from 10 to 
2000, and for length-to-wavelength ratios from 0.05 to 2.10 in increments 
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COMPUTATIONS FOR LINEAR WIRE ANTENNAS AND SCATTERERS 
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I. Introduction. This report gives representative computations and 
general computer programs for linear wire antennas and scatterers with 
arbitrary excitations and loads. These computations and programs were 
done under Contract AF 30(602)-3724 during the period March 26, 1965 to 
March 25, 1966. The general theory and development of appropriate formulas 
are given in the Final Technical Report for the above contract.~ Curves 
of some of the calculations are given in Chapter IV of that report. All 


computations were made with 32 subdivisions along the wire. 


II.. Explanation of Tables. The tables included in this report are 
arranged in sets according to the length-to-diameter ratios L/2a of the 
wires considered, as follows: 
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Within each set computed results are given for length-to-wavelength ratios 
L/x from 0.05 to 2.10 in increments of 0.05. The following parameters are 
tabulated: 
Table A - Input admittances and impedances for center-fed linear 
antennas. 
Table B - Input admittances and impedances for linear antennas 
fed L/8 off center. 
Table C - Input admittances and impedances for linear antennas 


fed L/4 off center. 
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Table D - Input admittances and impedances for linear antennas 


fed 3L/8 off center. 


Table E - Input admittances and impedances for linear antennas 


el 


fed L/4 off center, with an open circuit at the center. 
Table F - Input admittances and impedances for linear antennas 
fed L/k off center, and a load 


y = Cot(kL/') 
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at the center. This load corresponds to a shorted trans- 
a 


ae 


mission line stub with characteristic impedance 600 ohms. 

Table G - Same as Table F but with 300 ohms characteristic impedance. 

Table H - Same as Table F but with 100 ohms characteristic impedance. 

Table I - Input admittances and impedances for linear antennas 
with a ground plane at the center, and fed L/4 from one 
end of the antenna. This corresponds to a center-fed 
monopole of length L/2 normal to ground plane. 

Table J - Transfer admittances for linear antennas, fed L/h off 
center, open circuit at center, and meesured. L/4 on other 
side of center. This corresponds to the m.tu..i admittance 
between collinear antennas of length L/2. 

Table K - (3 pages) These are monostatic and bistatic racur cross 
sections S, for TVinear wires excited by plane waves 


incident at angle @, (from wire axis), and veczived at 
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Table L - Echo areas for center-loaded wires, broadside incident ah 
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plane wave, for the following loads Y,: 
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S(A) - ¥,, continually tuned to resonance ay a 

. iy () ait 

S(B) - XY, an inductor tuned to resonance at L/s = 0.25 = try vs nt 

s(c) - Y an inductor tuned to resonance at L/A = 0.35 ine 

| teats 

S(D) - Y, = 0, an open circuit ' peat 

: L aa 

S(E) - Y a capacitor tuned to resonance at L/x = 0.55 RSX 

S(F) - ¥,, & vapacitor tuned to resonance at L/® = 0.65 reeNaty 
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S(G) - Y,, @ conjugate complex match, corresponding to an antenna ‘ nt 

OOo 60) 

with matched load ; eae 
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S(H) -¥, =1 ae 
(H) - ¥, = 1/75 poe 
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Table M - Primed admittance parameters for the echo area of a oo a 
center-loaded wire scatterer. In terms of these param- 3 and 
eters, the echo area o is given vy” ae 
2 [2 se 
= 16x n° xe DY,4- iit 
where n= Vu/e = 120 x 

Yoo = input admittance of scatterer when. fed as an 
antenna i Ha 
%, = load admittance Be i f 
DY,, and Y,, given in Table M : : re oa 
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III. Instructions for Computer Programs. The computations were per- 
formed in two parts. The first program calculates the n by n admittance 
matrix Y whose elements Ny characterize the object according to the con- 


cepts of Chapter II of the Final Technical Report. In addition, because 


of the wire nature of the object, the elements Y,. are also equal to the 


ij 


current on wire segment i due to a unit voltage source impressed on segment j. 
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The second program uses the Y matrix to calculate various parameters, such 


as impedances, currents, gains, echo areas, etc., according to the formulas 


& 


of Chapter III of the Final Technical Report. The programs are written 
in FORTRAN IZ, and were run on the IBM 7074 computer at Syracuse University. 

A) Program No. 1. This program is given in its entirety in Appendix A. 
Its output consists of the matrix Y recorded on a tape. Here each matrix Y 
is preceded by y+. the Cong depends only on |i-j|] so yi has only n 
distinct elements. Program No. 1 also prints out a 15 x 8 array which is 
a skeleton of Y. The as column of this 15 x 8 array represents the cur- 
rent function due to a one-volt impulse at position j. When the antenna 
is 16 units long, the subscripts of the 15 x 8 array become the actual 
distance from one end of the antenna. 

For each matrix Y to be calculated, there is a data card. This date 
card has format (2615.8, 413). The first data word is the length of the 
antenna divided by its diameter. The second word is the length of the 
antenna divided by the wavelength. The third data word is the dimension 
nof Y. The fourth word is the length of the antenna in number of coarse 


intervals. There are three interval lengths in the course of the computa- 


tion. These are: 
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1) The basic interval - this is the length indicated by a unit 
difference in subscripts of Y. The antenna was scaled for 
a basic interval length of one meter. 

2) The coarse interval - an integral number of coarse intervals 
unite to form a basic interval. The coarse interval is re- 
lated to the coarse sampling of the e7 JKT jy type function. 

3) The fine interval - an integral number of fine intervals 


unite to form a coarse interval. The fine intervals are 


designed for sampling the oe JET}, type function near r = 0. 
The fifth word is the number of coarse intervals that will be subdivided - 
into fineintervals. The sixth word is the Length of a coarse interval 
divided by the length of a fine interval. 

Program No. 1 punches a card for each matrix Y. There is one data 
word on each card, which is the input susceptance at the center of the 
antenna. Some of these susceptances are fed into Program No. 2. The sus- 
ceptances appear in the print out of Program No. 1 but not with the desired 
eight significant figures. The susceptarices are also on the tape, but 
they are scattered so that it is ineffic tent t., read them from the tape. 


For instance, a susceptance from the eleventh Y matrix may be needed during 


a computation involving the first Y matrix. The only way to get this sus- 


cemsiert 
ceptance is to search through the nine intervening matrices. aon 

B) Program No. 2. This program accepts the Y matrices from the out- ee 
put tape of Program No. 1. Program No. 2 also uses a scratch tape for : = 
storage within the program itself. = 

The first six data cards for Program No. 2 have format (3E15.8, 
313/(EL5.8)). The first word is x. The second isL/2A, the length to ; o 
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diameter ratio of the antenna. The third is a variable AP such that extra 
calculations and print out will be performed whenever (AP)(L/A) is an 
integer. The fourth word is n, the dimension of the matrix Y. The fifth 
end sixth variables are LA and LB respectively. The LA and LB are such 


that the following ratios of length to wavelength are expected: 


z = .05 LA, .O5(LAHL), ..., -O5(LB-1), .05(LB) 
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| The remaining five data words are on five separate cards. They are the 
j 
; input susceptance of the center driven antenna for L/x = 0.25 and 0.35, 
| the data word zero, and the input susceptances of the center driven antenna 
for L/N = 0.55 and 0.65, in that order. 

The remaining data for Program No. 2 is for print out under the A 
format. This data, included in the deck, remains invariant. 

C) Description of Print Out. Program No. 2 operates on the Y matrix 
for a given L/2A for each value of L/X from 0.05 to 2.10 in steps of 0.05. 
Whenever L/X is such that (AP)(L/A) is an integer, print outs numbers IV, 


II, IZI, and VII occur for that L/X. Other print outs occur at the very end 


of the program and are tabulated vs. L/h. The print out vill be explained 

in the order that they occur in the program. 

1) Print Out IV. The real and imaginary parts of the current I 
are printed, along with the angle and magnitude of I for an 
incident field of one volt per wavelength. The angle of 


incidence is the angle that the propagation vector makes 


with the negative x axis. The electric field, being that 


of a plane wave, is perpendicular to the propagation vector 
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and lies in the plane defined by x and the propagation vector. 
The phase of the incident field is equal to zero at the center 
of the scatterer. 

Next, a variation of the previous data is printed. The incident 
field is increased, if necessary, so that its z component has 
magnitude one. The magnitude, real part, and imaginary part 

of the current is printed in three separate tables. 

2) Print Out II. Tables A, B, C, D give the electric currents 
due to a unit impulse of voltage located at the center, L/8 
off-center, L/4 off-center and 3L/8 off-center, respectively. 
The off-center source occurs on the lower half of the antenna. 
In Tables E through H the unit impulse of voltage is located 
L/ from the center. Tables E through H have an open circuit, 
a shorted quarter-wave Stub of 600-ohm, 300-ohm, and 100-ohm 
transmission line, respectively, as a concentrated load at the 
center. Table I is equivalent to having two sources L/4 off- 
center, one on each side of center. 

3) Print Out IIT. These tables are the power gain patterns for 
the antennas of Print Out II. Here @ is the angle between 
the radius vector from the antenna and the positive axis of 
the antenna. Cases A through I are for the same feeds and 
loads as in Print Out IT. 

4) Print Out VII. This print out differs from the previous : 
Print Out III only in the method of excitation. The antenna 


is driven by an incident plane wave field coming from the 
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direction indicated by ANG. This plane wave acts like several 
impulsive voltage sources, the strength of each being an 
integral of the product of the z component of the incident 
electric field with one of the triangular expansion functions. 

5) Print Out I. For the same feeds and loads A through I of 
Print Out II, the input admittances and impedances are tabu- 
lated vs. L/A. This print out corresponds to Tables A through J 
of this report, described in Section II. 

6) Print Out V. This is a tabulation of the radar cross section 
of a linear wire, both monostatic and bistatic, for various 
angles of incidence and scatter. It corresponds to Table K 
of this report, described in Section iI. 

7) Print Out VI. This is the monostatic radar cross section for 


a center-loaded wire scatterer due to a plane wave at broad- 


side incidence. It corresponds to Table L of this report, mu 
Wares 

described in Section II. eats 
wi 

8) Print Out VIIL. This is a tabulation of the primed admittance Weta 


parameters needed to calculate the radar cross section of a 
center-loaded wire scatterer. I+ corresponds to Table M of 


this report, described in Section II. 
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Set VIII (L/2A=2000) Table K (contd.) 
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Set VIII (L/2A=2000) Table K (contd.) 
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COMPUTER PROGRAM NO. 1 


This program is for computing the impedance and admittance matrices 


: 
ie 
" 
} 


for thin linear wires. 


ee T UPEKATOK THEKE WILL BE PUNCHCU GuTePul 

&e H MUCUNE TAPE 2617 ON URIVE 14 wITH KING IN 

* ECXECUIc FUKIRAW, GMP . 

2000 SUBROUTINE CRLANCFZ 1, FL29GL DNS NS pNL4--NE3 edhe de) 
UDIMENS TON F 21-6528) pF220528) Gl (1Le9) 

2906 [=h+ 1 

20gQgy 3rE=0 

2012 RA=C0 

20:15 LE==$+hi7 4 

2118 LFELL) 49394 

2021 4 LE2=LFK 4 LNF OL bey NG) 

2028 M=N74¢4L-L1 

2032 L=1 

2934 BLEFZL(IM)*GL(L)-/2.+81 

2044 S2ERLZ(A)FGULI/2.+B2 

2052 Mate } 

2055 L2M=LL2-1 

2058 TFALEZM-L) 2ede28 

206? 28 NG 5 Ledyl 2h 

2966 SLEFZLIM)SG1( LD +b 1 

25:14 S2=FL2Z(M) ¥*6 1142) +82 

2980 M=M41 

283 5 UGATINUE 

2084 2 LRGEL2-L) 323630 

208 30 LekL2 

2090 SSFLZICM)*G1(LI/2.+b1 

2100 B2=FL2(M)¥GLIL)/20482 

24108 3 TFELI-NG) 99858 

213 GS LFGLL) Lebe€ 

2117 1 Cu:b=1 

2119 M=N2464+2-¢41/NZ3 
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2127 Gu TO 7 Moet 
2128 6 LLI=LI+L aie 
213t M=NZ442 Muay 
2134 7 LL2=NG+1 ie 
2137 L=tLl eet 
2139 BL=FZLIM)#GL(L)/2.¢61 SAN 
2149 B2=FZ2(M)*G1(L)/2.+82 » ERY 
2157 M=M+1 ANY 
2160 L2M=LL2-NZ3 SN 
2163 IF(L2M-L) 3h, 51932 - Poth 
2167 32 LIM=LLL4NZ3 ; 
2170 DN 10 L=L1MeL2MyNZ3 
2177 BI=FZLEMI*GICL) 481 
2185 B2=FZ2(M)*GLOL) +82 
2191 M=M+1 


2194 10 CONTINUE 
2196 31 LFELL2-L) 878433 
2200 33 Letl2 


2202 BLSFZL(MI#G1(L)/2.4+01 
2212 B2=FZZUM)¥GLEL) /2.+82 
2220 8 L2=-L1 
2222 IFUL2) Llylby2 
2225 12 LL2=1+#XMINFANG »L2) 
x 2232 M=N74¢2¢+L2/NZ3 
2: 2240 L=1 
sf 2242 BESFZLIM)*G1CL)/2.+31 
.! 2252 B2=FZ2(M)*G1LELI/2.¢+B2 
3 2260 M=M~ 1] 
‘ 2263 L2M=LL2-NZ3 
t 2266 IFELZM-L) 35935936 
2270 36 L1M=14NZ3 “5 
. 2273 DO. 13 L=LIMyL2MyNZ3 
“ 2280 BL=FZL(M)*G1CL) +81 mer 
' 2288 B2=FL2(MI*G1LEL)+B2 eae! 
| 2294 M=M—1 ny oy 
2297 13 CONTINUE Kare 
M 2299 35 TFALL2—L) Ll-vl1 238 ae 
2303 38 L=EL2 fate 
‘ 2305 BL=FZL(M)¥*G1CL)/2.+B1 Nh 
¥ 2315 B2=FZ2(MI*G1IL)/2.+B2 ee 
2323 11 L3A=L24N<4 ras, 
2326 L3B=L3A+NZ4 eke 
2329 IFEL2-NG) 15914914 


2934 15 TFCL3A0 41941952 
2x37 52 TFCL2) 16916017 
2341 16 CLI=1 


ah A ot 


1 2343 M=NZ441+L2 
¥ 2347 GO To 18 
, 2348 17 LLI=L2e1 - 
S 2351 MENZ4+1 
di 23.54 18 MM=1L+XMINF(L3A+NG) 

2361 LELLh 

2363 BL=FZL(M)#GLCLI/2.+81 

2373 B2=FZ2(M) #G EEL) /2.+B2 

2381 M=M—1 

2384 L2M=MM-1 

2387 LFCLZ2M—-L) 39539240 
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LIM=LL1+1L 

DO 21 L=L1MeL2M 
BL=FZ1{Md*G1(L)4+81 
B2=FZ2(M)*G1(L) 482 
M=M—1] 

CONTINUE 

IF{MM-L) 41941442 
L=MM 
BL=FZ1(M)*G1(L)/2.+61 
B2=FZ2(M)*G1(L)/2.4+82 
[F(L3A-NG) 234514,14 
LLI=L3Atl 

M=1 
MM=14+XMINF(L3B,NG) 
L=LL1 
BISFLZL(M)4G1(L)/2.+B1 
B2=FZ2(M)*G1(L)/2.+B2 
M=M41 

L2M=MM-1 

TF(L2M-L) 44244945 
LIM=LLi¢l 

DO 24 L=L1M,L2M 
Bl=FZ1(M)¥*¥G1(L)+4B1 
B2=FZ2(M)*GL(LI4B2 
M=M+1 

CONTINUE 

IFOMM—L) 14214,50 
L=MM 
BL=FZL(M)*G1(L)/2.+81 
B2=FZ2(M) *G1(L)/2.+Bz2 
IF(L38-NG) 25926726 
LL1=L38+1 

LL2=NG+1 

M=NZ442 

L=LL1 
BL=FZL(M)*G1(L)/2.+81 
B2=FZ2(M)¥*GLILI/2.+B2 
M=M+1 

L2M=LL2-NZ3 

TFCL2M-L) 45545546 
LIM=LL14+NZ3 

DO 27 L=LIMsL2M,NZ3 
BL=FZL(MI*GLIL)+B1 
B2=FZ2(MI¥*G1LILI+B2Z 
M=M+1 

CONTINUE 

IF(LL2~L) 26926948 
L=LL2 
BL=FZLIMI*GLIL)/2.+81 
B2=FZ21M)*G1(1)/2.+B2 
CONTINUE 

RETURN | 

END 

SUBRUUTINE LINEQULL,CL,C2) 
DIMENSION AR1(32) pAR21(32) .C1(528) ,C 24528) 
M1=0 

DO 18 M=lyLL 
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2686 Mz=M1L+M 


2689 STL=CLI(M2) 
2693 SP2=C2(M2) 
2697 CLIM2)=1. 
2699 C2(M2)=0 
2702 D=STLEST14ST24S72 
2709 DO 7 J=lyM 
2713 M2=M14J 
2716 ARL(J)=CCLOM2)®ST14C20M2)*S12)/0 
2729 AR2(JS)=(C2(M2) ST 1-C1 (MZ) *S72) 7/0 
2738 7 CONTINUE 
2739 LF(LL=M) 22921422 
2742 22 MPL=M+1 
2745 MZ=M24+M 
2148 NO 23 J=MPLleoLL 
2153 ARL( JS) =EC1LIM2 *®STLEC2Z(M29*ST2)70 
2766 AR2(J) =(C2(M2)*SE1-CLIM2)*ST29/D 
2775 M2=M2+J 
2778 23 CONTINUE 
2779 21 11=0 
2781 NG Ll LalsLe 
2785 TEC I-M) 12913924 
2790 12 M2=ML¢l 
2793 ST1L=-C1(M2) 
H, 2797 ST2=-C2(M2) 
es) 2801 C1(M2Z)=AR1(1) 
Hy 2803 C2(M2)=AR211) 
ak 2305 GU TO 25- 
2806 24 M2=11+M 
2809 STL=C1(M2) 
2813 §T2=C2(M2) 
2317 C:1(M2)=0- 
2820 C2(M2)=0 
2823 25 NO 10 J=lel 
2827 M2=IT1+J 
2830 CLUM2)=C1(M2)-ARL (J) *ST1+AK2 (6-5) S72 
2840 C2(M2)=C2(M2)-AR2Z(J)*STA-ARL EJ) *ST2 
2850 10 CUNTINUE 
2851 13 Tl=I1+1 
2854 11 CONTINUE 
2855 ML=M1+M 
2858 CL(ML)=ARL(M) 
2862 C2{ML)=AR2(M) 
2866 18 CONTINUE 
2867 RETURN 
END 
2963 SUBROUTINE DSPKSIN»CObCC2 y Bly B2) 


DIMENSION CCOL(64) eC C2664) p61 (664) 982 (64) 
COMMUN P+, AWE sA22 »BKA yBKAZs BKAS 


2969 AW=A22/ AWE 

2973 NP-=N+1 

2976 Wl=CCLEE)D 

2978 w2=CC 21.1) 

2980 CC1l(1)=-(CC20 2)-W2) #2.*AW 

2986 CC2(1)={CC1(2 -wWh) #2. *AW 

2991 S=BL(1L) 

2993 BL{ 1) =-6211)*BKA2/AWE 
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2999 B2(-1)=S#BKA2/AWE 
3004 NO 7O [=29N 
3008 W3=CC1(1) 
3012 W4=CC2(1) 
3016 S=B1(1) 
3020 [P=I+1 
3 3023 CCLOI)=-(CC2( 1P 1-2. *W44+W2) AW 
3032 CC2ATI=(CC ULL P)—-2.* W341) ¥AW 
3040 81(1)=-B2¢1)*BKA2Z/AWE 
3048 B2{1)=S*BKA2Z/AWE 
3053 W1L=W3 
3055 W2=W4 
3057 70 CONTINUE 
3058 DO 72 1=14N 
3062 CCLCT)=CCLOT)+B11) 
3069 CC2C1) HCC 201) +b 201) 
3076 72 CONTINUE 
3077 WRETE QUTPUT TAPE Sels (CCLAIE),T=1sN) 
3090 WRETE UUTPUT TAPE Seley {CC2(1) ,T=1_N) 
3104 1 FORMAT(8E15.8) 
3105 DO 71 I=LeN 
3110 CCL 1) =CCL(1V/A22 
3116 CC2(1)=CC21 19 /A22 
3122 71 CONTINUE 
3123 RETURN 
END 
3157 SUBROUTINE EL PTC OCNZ4sNZ5 9NZ6—¢D2Z5FNZ3¢ 18K) 


DIMENSION [K(305)¢1TE(305) ,AYL (305) pAY21 305) 9AY3(1305),AY4(305) 
TOA=L/A 
NZ1=MESH OF (:09L/A) 
NZ2=NO. OF INTERVALS REQUIRING FINER MESH 
NZ3=MESH RATIO 


COMMON PI yAWE ¢A22:9BKA sBKA2s bKAS 
COMMGN AS1,AS2,AS3,AS4 2 AYL-- AY2-,AY3 pAY4 


3163 DZ1=D2/FNZ3 

3167 11=0 

3169 EO=11. 

3171 00 11 1=1,NZ5 

3175 72=DZL*ELOATFUI-E4) 
3180 222=22*22,0 

3183 TP2=22274 1.4222) 
3188 TP=SORTE( TP2) 

3191 TF CTP 2-111) 1919419 


3195 19 [FCIBK) 15,520.15 
3198 20 IBK=1 


3200 {F(-IBK-) 1,510.1 
3204 LO LFCTP2-.:15) Lele? 
: 3208 t [BK=0 
3210 RETURN 
2211 lL TG=LUGEF(4./TP) 
3216 TP22=TP2*TP2 ; 
3219 ZEH1e +0 5% ( TG= SDF TP2t 30 /160¥( TG-13 6/126 9FTP22415./128 #1TG 


1-60/5.)*TP22*TP2 
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3258 LS=22-DZ1/24 se 
3263 21=Z2-021 Mitts 
3266 R2=1.+2S#ZS. Kress 
3270 R=SQRTF(R2) _@ 
3273 IF(ZS-DZ1L) 29393 bee 
3278 2 1G1=0 nn, 
3281 60 TN 4 pees 
3282 3 1GL=LUGEF(Z1) ; ” 
3285 4 TG2=LOGEF (Z2) RA 
3288 TGR=LOGEF(4.#R) bak 
3292 212=21*41 Pas, 
3295 213=212*21 GS Hh, 
3298 215=713%2Z12 HON 
3301 Z217=215*2Z12 te 
3304 122=L2*22 Cao 
3307 2232222822 HER 
3310 225=223*222 = 2 
yt 3313 227=225%122 Mat 
2 3315 SLE((Z2-2E) #TGR-2 28116 2-16) 4218 (TG1-1 od) alates 
4) 3334 S22 Le /R2*1( 225-213) 3. TER-Z23/ 30 FL IG 210/30) FL E373 o#ITGI- 10/309) Reta 
‘, 3373 R22=R2*R2 atta 
u 3376 S35 Lo /R22HLL25-L£15) 15 0 # TGR-Z25/5 o HIT 62-02) 415/50 #(TG1-22)) stayetal 
R 3411 S42 Le /R2Z/R2¥( (Ze ILL 7) 1 Te @AGR=L2T/ 7. HAG SL 70d HZ T/T # (TCL Lo / aoe 
ve 17.)) CRA RRS 
by 3452 TKUT) =S 1b 0.25% ($2-(223/3..=213/ 304 (RLVEV 1b 4s #1 S3-T 0/60 81'225/ 96 ctie 
Si 1-215/5 0 dAR22) 250/256 #1 S4- 37 0/500 KI ZZTYT o-Z1T/ To) /RA2/RE) ato! 
MY 3525 TKUL)=TKCEI/021 ters 
ti $529 TEC T)=(E0+ZE)/2. , ~ A 
‘ 35.34 EOSZE natatted 
hel 3536 AYL(T) STK ELITR Aa WS 
oa 4540 AY2( 1) =-P L426 RES 
Me. Le) 9, 
w 3544 AYS(1)=—.5#R#TEUT) eh 
‘i 3548, AY4( 1) =P1/1:20*(R2—55) mn 
rh 3556 [F(IBK-1) 18913918 rats 
3560-13 ASL=AYL(TD: mid 
3562 AS2=AY2(1) se 
3564 AS3=AY3(1): Paees 
3566 AS4=AY4(1 “NS 
3568 15 TK(1)=0 ieee 
3571 TE( 1)=0 Hotei 
3574 R=22/1P rae 4 
3578 R2=R#R 0 
3581 IF ( 22-3.) 9922922 
3586 9 SML=(Le—TPD/C Le +TP) tate 
3594 SK=1. on 
3596 SM2=SM1* SME 
3599 SM=SM2 
3601 21 DU 5 J=1y25. 
3604 FJ=2#J-1 
3609 FUL=FU+h. 
3612 SK=EU*F IVE DL/F I L*SK 
3620 TKO LE) STK ETD +SK*SM 
3624 SE=SK/FU/F J 
3630 TE( 1) =TECE) +SE%SM 
3634. SM= SM SM2 
3637 1F(SK&SM—2.E=7) 16,1645 
$642 5 CUNTINUE 
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3643 STOP 5 

3645 16 TKCLI=PI/Z2.*( Le tSMLIFCTK(D #10) 

3657 TEC L)=PT/ 26/0 Le ¢SMLD®ATECL) 41.02. 

3670 AYECT )=TK(LIZR 

3674 AYV2UL)=—P1/2e4Z2"TKILI/R 

3684 AY3 CT b=. SR(RETE( LP -Z22"P14+Z22"TKU LT) /R) 

3699 AYG(1)=1e/60%(PIL/20%(RZ—.5)—-3 o#LZZ4RETE( 1) +3 0% 
LL22€P 1/2 0-L22*22* TK(T) /R) 

3736 Go Tu 18 

3737 22 R3=R2¥R 

3740 R4=R3RR 

3743 RS=R4GER 

3746 RO=R5¥R 

3749 R7=RO*R 

3752 AYLCL) =P 1/2 0% ( Le/R+e25/R349 0/646/R542 50/2560/R1) 

3780 AY2(A1)=P1/2 0% (—625/R2—7 0/64 0/R4-170/2566/RO) 

3803 AY3(1) =-P1/4.¥*( 30/320 /R34L6/160/R5) 

3821 AY4(1) =P 1856/1536 0/R4 


3828 18 TRECI-NZ4) Llyl7s11 


ms 3832 17 OZL=0Z1*ENZ3 

_ 3835 LE=NZ6 

" 3837 11 CONTINUE 

i] 3838 IF( 1-303) 12,1298 

4 3842 8 STOP 8 

¢ 3844 12 RETURN 

‘ END 

, 4524 SUBROUTINE EVODDINy iS eCCloCC2 FEL» E12 9FZ1 t22) 


: 


DIMENSION FI1L(528) .F120528)..FZEE528)-9 F221528) CCl (6494002164) 
DIMENSTON AY1(305) sAY2(305) sAY3£305)-) AY4(305) 

COMMON PI ,AWE »A22 yBKAy BKAZ  BKA3- 

CUMMON AS1,AS2yAS3,AS4 AY] sp AV 2:0 AVS AVS 


4530 NZ=tN4+1)/2 
i 4535 K=0- 
4537 DO 2b 1=1ly»N2 
4541 DO 25 J=lel 
4545 Jb=XABSFA I-J) +1 
4550 J2=N+.2=1-J 
4555 = KetL 
4558 FEECK )=CO1(J1)4+CC1(J2) 
4567 F-E2CK )= =CC2(J1L)+CC 2( 2) 
4576 25 CONTINUE 
45178 N24L=N2-1 
4581 K=0 
4583 DO 26 L=1,N21 
4587 DO 26 J=lel 
4591 J=XABSF(I-J) +1 
4596 J2=N+2-1-J 
4601 1 
4604 CKd=CCL(JL)-CO1( 52) 
‘ 4613 E2tK)=CCO2(JLI-CC YL NZ) 
4622 26 CONTINUE 
4624 CALL LINEQUN2,FILyFI2) 
: 4629 CAEL LINEQ(N21,FZ1eFZ2) 
4634 CAEL CMBIN(N2 sN2L,IS FLL eFZis CCL) 
4643 PRINT 3 
4647 3 FORMAT( /23X32HSUSCEPTANCES (MIELT-AMPE RES/VULT)) 
4655 CAEL CMBININ2Z»N2191S,F12.F229CC2) 
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+665 PUNCH 5, CC2(3) 
4671 5 FORMAT(EL5.8) 
4672 DO 2 [=1+8 
4GT4 D=CCLOTI*CC1(1 2 4CC2(1)*CC2Zt1) 
4687 — CCLET)SCOLITN/D 
4691 CC2¢b)=-CC2(1)/0 
1695 2 CONT-INUE 
4696 PRINT 1 
4700 1 FORMATU/25X29HIUNPUT RESISTANCES (KTLO-GHMS } ) 
4707 PRINT 33, (CCLUT) »1=1,8) 
4720 33 FORMAT(8(F8s4_2X)) 
4722 PRINT 4 
4727 4 FORMAT(/25X28HENPUT REACTANCES {KILO-OHMS2) 
1734 PRINT 33,5 (CC2(1) »1=1,8) 
4146 RETURN 
END 
4784 SUBROUTINE CMBYN(N2 N21 TS eELeGl,CCl) 
DIMENSION E€1(528) ¢G1(528) »C1(32).CC11-64) 

4790 S=1. 
4792 L=0 
4794 § DO 32 1=1,N21 
4798 TF(S) 29253 
4802 3 K2=0T*(1-1))/2 
4809° Tl=1T 
48 EL IP=EL+1 
4814. GO TG 4 
~815 2 K2=((N2=1L)*(N2—T=1))/2 
4827 T1l=N2-1 
4830 IP=Pl+l 
4833 4 DO 28 K=lell 
48317 K2=KZ+1 
4840 CLIK) CE L(K2)+S#O1L(K2)) /2. 
4850 28 CUNT:INUE 
4851 K2=K2+K 
4854 IFCK=N21) 614 79:61 
4857 61 DG 29 K=IP,N21 
4862 CLOCK) =C(E1L(K2)4+S%01(K2Z))/2. 
4872 K2=K2+K 
4875: 29 CONTE NUF 
4876 7 CLOIN2)=EL(K2) 
4881. TFCGLO#1)/TS-1AES*¥10) 11) 9:b1 
4894 9 PRINT 33, (C1 (Jd-e-J=1S$9N291:S) 
909 33 FORMAT(3{F5.4)2X)) 
49t1 L=L+1 
4915 COhLelyaCi( tl) 
4920 Ll WRITE OUTPUT TAPE Sel») (CliJd) »J=lyN2) 
4932 1 FURMAT(8E15.8). 

4 4933. 32 CONT:ANUE 

) 4935- IF(-S) 698,78 
AIJ38 8 K2=CN219N2)/2+1 
4944 DO 60 K=1,N21 
4948 CLOK)=EL(K2) 
4952 K2=K2+l1 
4955 60 CONSEINUE 
4956 CLEIN2Z)=2 *EL(K29 
4962 PRINT 33, (Cl(JdeJ=ISeN2 TS) 
4976 L=L+1 
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4979 
4984 
4995 
4998 
5000 
5001 


5066 


5072 
5076 
5078 
5080 
5084 
5086 
5089 
5094 
5101 
5111 
5L12 
5.19 
5129 
51130 
5135 
5140 
5148 
5151 
5154 
5157 
5:166 
5175 
5179 
5182 
S185 
5187 
5188 
51-90 
5192 
5195 
5199 
5203 
5205 
5209 
5212 
52-16 
52:18 
: 5221 

5225 

5236 

5247 

5250 

5253 

5260 

5267 


10 


19 


20 


10 


CCLIL)=aCLIN2) 

WRETE OUTPUT TAPE 5o1,(ChlJ), J=1,N2) 
IFES) 6,10,10 

S=-l. 

GO TO 5 

RETURN 

END 


SUBROUTINE FOFZT(D2Z sFNZ3 eNZ5yF2CeNZG6eNZ4 eA BK et le FL2, FZ 1, FZ2) 


DIMENSION FL10528) eFI2(528)5F 211528) ¢F 221528) 
DIMENSION AYL0305) ,AY2(305)-2AY3(305)5 AY4( 305) 
CUMMON PI ¢AWE sA22 eB KA, BKA2Z ¢ BKAS 
COMMON AS1,AS29AS34AS4,AY1L e AYZ AVI 2AY4 
0Z1=DZ/FNZ3 

I1=0 

12=1 

DU 10 L=1lyN25 

[2M=12 

[2=L2+1 

TFC I-IBK) 1991.20 

FIL 12M) =F 2C#(ASL+BKA2Z*#AS3) 
FI2(T2M)=FLC#¥LBKA®AS2 +BKA3*AS4) 

GO TG 20 

FELCT 2M) =FZC#{AY1L(1)+bKAZ#AY3(1)) 
FEZ 2M) =F ZC* (BKAFAY2 (1 9+BKA3 ¥AY4(1)) 
60 TU 2 

Z2=DZ L€FLOATFEIAN“UL) 
FEEFZC#(AYLCE)+BKAZ¥AY3 (10) 

F2=FZC#( BKASAYZ¢1) +BKAZ#AY41 1) ) 
B=BKA*2Z2 

BC=COSF{(b) 

BS=SINF(B) 

FZE(CT20=F 1L*BC+F2*BS 

F22¢12)=F 2*BC-F1*BS 

IF(I-NZ4) 10, 13410 

0Z1=021¥*FNZ3 

[2=l2+¢l 

EEENZ6 

CUNT-INUE 

1=0 

FN=FNZ3 

FD2=FNZ3*2. 

F2bC1)=F11(1)/Fb 

FZ2¢1LI=F12(1)-4E0 

IP=L 

TREIBK-2) 239.2424 

IM=1IBK~1 


DO “7 1=1,1M 


{PM=IP 

IPSIP4+] 

LFEI-NZ4) 279-3927 
FZLGEIP)=CFILCEPRM) tf 11 (1P+L09/FD2 
FZ2¢1P)=(FI2CEPM) 4F 124 1P#LI9 / FD2 
IP=I1P +1 

[PM=1P~1 
FZECIP =F LLL TPM I*FD 
FZ241P)=FZ2¢1PM)*FD 

FO2=2. 
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5292 17 CUNTINUE 

5293 23 IPM=IP 

5295 1=1+1 

3296 TP=IP4¢1 

5301 TEC I-NZ4) 59605 

5305 6 SLSFZLCTP) 

5309 S2=FZ2¢1P) 

5313 FZLCIPVEC FI LOLPM) +P ZECTP))/F02 
5320 FZ2CIP)=( F120 1PM) +FZ241P))/FD2 
5327 TP=IP+h 

5330 FZ1(1P)=S1 

5334 FLZ2(1P)=S2 

5338 GO TO 26 


i 
5269 GO TU 17 
5270 27 FZLCTPV=C FILO IPMS FTL 1P2)/FD2 
5281 FLZCIPIECFI2CIPM) CFT 211 P 2) 7 F02 
5339 5 PZ IPV=CEELCLPM) +FZ101P)) /FG2 


5348 PLZCIP SC FL ZCI PM)4FZ2¢1P))/FD2 
5357 9 IBKK=1bK+1 
5360 TEC IBKK-NZ4) 22922426 
5365 22 NO 25 I=LBKKyNZ4 
5370 ¥P=1P+1 
5373 FLAP SELLAIP) /FO 
5379 FU2¢1P)=FZ2(1P)/FD 
5385 25. -CUNTINUE 
53 86 FZLCIP+1L =F ZLA IP) FD: 
5389 HZ2CIP+LI=FL201P)*FD 
5392 26 RETURN 
END 
DIMENSION F2LL(528)-9FZ21528) AYL (305) ¢AYZL305) pAVS (305) 9 AY4:(305) 
DIMENSION FIL(528)-.FE2¢528) 
COMMON PI sAnWE sA22 »BKAy BKA2,BKA3 5 
COMMUN AS1¢AS2,AS3yAS4rAYL gAY2 sAY3 9 AV4: 
5445 REWIND 5 
5447 P1=3.1415926 
5449 FZC=1L./20/P1/PI 
5457 WWO=0 
5460 NGO=0 
5462 98 READ Ly 99, TUD WLGsNyNZLyNZ2 yNZ3 9 METH 
5475 L FORMAT(2E€15.8,513) 
5477 NP=N+1 
» 5481 ES=NP/16 
5 5485 4 -FNP=N41 
5489 NI=NZ1/NP 
; 5493 2 NG=NI*NZ3 seve 
5496 OM=2.¥*LOGEF (TUD#2..): ASA 
‘ 5501 A2=FNP/TOD ES 
A 5505 A222AZ*A2 ON, 
; 5508 3K=2.*P 1@WLG/ENP . 
5516 BKA=BK*AZ . 
5519 KA2=BKA*BKA 
“i 5522 BKA3=BKAZ*¥6KA 
5525 AWE=BKA/376.707 
5529 FNZLENZL 
5532 FENZ2=NZ2 
5535 FNZ3=NZ3 
5538 OZ=TON/ENZ1 
iho 
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$542 ADZT=A2*DZ*1.E-3 

5546 WW=OM¢FNZ1+FNZ2Z¢FNZ3 

5551 TF(ABSF( WKO-WW)-2-05) 74898 

5557 8 NZ6=NZ2*(NZ3-1) 

5563 NZ5=NZ14+N2Z6 

5566 NZ4=NZ2*NZ3 

5569 wwO=WwW 

5571 [BK =0 

5573 CALL ELPTC(NZ4—NZ5sNZ69DZeFNZ3,I1BK) 

5581 IFC IBK) 79397 

5584 3- DZ1=O0Z/ENZ3 

5588 FNN=2Z.*SQRTE( 2. )*DZ1+2. 

5594 NN=FNN 

5597? FNN=NN 

5600 IFQ(NN=303) Llelleld 

5604 12 STOP t2 

5606 11 022=0Z1/FNN 

5610 CALL ELPTL(O0eNN20.UZ291.e1BK) 

5618 CALL FOF ZT(UZ2_1. eNNeFLC pOvOeTBKe Fil eFl2eFdlyfL2) 

5631 NNM=NN~1 

5634 $6=6 

5637 $7=0 

§640 $6=S64F2714 1472. 

5645 S7T=S7¢F22¢1)72. 

5650 DO 5 1L=2,NNM 

5654 S6=S6#FL1L 1): 

5657 S7=S7T4#FZ21 1): 

5640 5: CONTINUE 

5661 S6O=S64FZ1L(NND/2- 

5667 S7=S74FZ2(NNI/2. 

5672 IBK=1 

5674 CALL ELPTCUNZ4¢NZ59NZ6eD2Z-3FNZ391BK) 

5682 NC =FNN*FZC 

2685 AS3=0 

5688 AS4=0 

} 5691 ASL=S6/FNC 

5695 AS2=S:7/FNC/BKA \ 

5701 GO TO 7 at talyt: 
: DIMENSION GECL29) ¢H1( 12920 1164)%9D2164):9SC) (64) .CC2 (64) Baas ‘ 

§702 59 FORMAT(/(8E15.8)) pst fe 

5704 60 FORMAT{( /{(5E15.8)) he by! 


wed | 


5707 T LF(NG=NGO) [514915 
5711 15 FNG=NG 


5714 NGP =NG# L 
5717 NG2=NG*2 

5720 NG2P=NG2+1 

5723 DO 55 L=1,NGP 

5727 FI= 1-4 

5731 Z=F L/FNG 

5735 GL TCL .-29 

5738 L25Z82 

5741 HLCP 4.-66%22+3.#22*2) 6. 
5752 55 CON EENUE 

5753 DO 56 1=NGPyNG2P 

5758 Fl=t-1 

5762 Z=+ TENG 

5766 LL=2.=1 
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57609 2Z2=22*22 

5772 H1€1)=Z222*22/6. 

5777 56 CONTINUE 

5778 14 NGO=NG 

5780 CALL FOFZT(DZeFNZ3NZ5 eFC (NZO,NZ4e 1B Ke FIL FlesFZ1,FZ2Z) 
5193 10 DO 57 t=LeNP 

5797 NS=CI~1)*NG 

5802 CALL CRLINGFZ1,F229G1l eNGeNS oNZ4eNZ3,D1 (1) ,U2C1)) 
5813 DICT) DLE) FADZT 

5816 D2C0) sD 20k) *A0ZT 

5Al9 TFOMETH) 13¢58,13 

5822 58 CCLM(I)=D0101) 

5824 CC2(1)=02(1) 

5826 GU TO 57 

5827 13 CALL CRLTNOUFZ1eFL2,sHL yNG2sNSeNZ4eNZ3,CC1( 1) -CC2U1)) 
5838 CCLUId=CCLCT) *€A0ZT 

5841 CC2CLd=CC2CT 2 *ADZT 

5844 57 CONTINUE 

5845 CALL DSPKS(N2U1,D2,CC1,CC2) 

5852 PRINT 35, TOD,OMsWLG,NP 


bd6l 35 FORMAT(CO2Z,/7THL/( 2A) =F7 01 ol Hse ep 2XOHOMEGA=F5 619 LHe ZXDHL/LAMBDA=F5 02 


A 5876 PRINT 37 
ie 5881 37 FORMATL/3X4HL/1656X3HL/8y 6X 5H 3L/16 pOX3HL/ 4» OXSHDL/ 16 9 OX4H3L/B 9 SX5I 
° L7L/16,6X3HL/2) 
. 5855 PRINT 38 
' 5900 38 FORMAT(/23X32HCONDUCTANCES (MIELIAMPERES/VULE)) 
ty 5908 CALL EVODD(Ne TS e091, D2 9F TL FIZ FLL eF 22). 
5919 GO-TO 98 
; 5920 99 END FILE 5 
5922 REWIND 5 
5924 TYPE 6 
re 928 6 FORMAT(27HDISMOUNT TAPE 2017 AND SAVE): 
4 5934 STOP 
he END 
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APPENDIX B 
COMPUTER PROGRAM NO. 2 


This program is for computing the various antenna and scatterer 


parameters described in Section II of this report. 


** H MOUNT TAPE 2017 ON ORIVE 14 WITH RING OUT 
* COMPILE FORTRANy ‘EXECUTE FORTRAN, DUMP 


2000 SUBRUUTINE CMPYUAL,A2 eB1 982901 9C2) 
2006 CL=AL#B1-A2#82 
2013 C2#A2*B1L+Al*B2 
2020 RETURN 
END 
2042 SUBROUTINE ‘CDVD (A1,A29B 1982901502) 
2048 D=B1¥*B1+b2¥*B2 
2055 Cl=(AL*B1+A2#82):/D 
2064 C2=(A2*B1-AL*B29/D : 
2073 RETURN 
END eas 
2096 SUBROUTINE CURR(CLeC2edeT elle Vig V2eTI Le T12): 


DIMENSION: CF(.5b-516) C2( 31016) 9VLE16020)-9V2416 920) pS IL(31) 9T12031) 
COMMUN Ny NP+BKy EN sPR1 »NAyNAMy)NG- NCy ND 9 NEgNNAdNNBy NNCy NNC 
COMMON N1sN2:0N39N4—N5 


2102 LFULI-1) 2ybe2 

2106 1 MV=J®NA 

2109 MC=NNA+I 
2112 CALL CMPYCV-ECMV):¢ V2 MV) sCLEMC) > C20MC) 9 XL—¢X29 
2128 MC=NNC+L 

2131 TELCL )2CL(MC24+X1 

2138 TI2C1)=C 2(MCI4#X2 

2145 RETURN ; 

2146 2 TFULI=2) 49.364 
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MV=J#NA 

DO 8 Mzl,N 

MC=NNAtM 

CALL CMPY(VI(MV) sV2(MV) oCLOMC) .C2(MC). oX1,X2) 
MC=NNC#M 

TILOMD=CLUMC) +X1 

TIZ(MI=C20MC) +X2 

CONTINUE 

RETURN. 

MV=(J-1L)*NA 

DO 5 M=L_NAM 

NM=NP—M 

TIL(M)=0 

TI2(M7=0 

TIL(NM)=0 

TI20NM)=0 

MC L=(M=1)®N 

MC2=MC L+NP 

DO 6 L=1,NAM 

M1l=MC1L+L 

M2=MC2-L 

M3=MV4L 

CALL CMPY(V1L0M3) 9 V2-¢M3) oCL UML) pC24ML)-9X1 9X2) 
CALL CMPY(V1L(M3) 9—V24EM3) CL (M2) 9 C2EM2 0-9 X3 9X4) 
TILOM)=TILOM) #X14X3 

TIS (MYETIZ(MI X24 X4 

CALL CMPY(VLOM3) 9 V2EM3) @CLOM2) 9 C2UM2)- 9X1 9X2) 
CALL CMPY(VL(M3) e~VZEM3) pCLUML) sC2UML)-9X3 9X4) 
TLLUNMD=TILONM) +X 1¢X3- 

TL2¢NM)=T12(NM) +X 24X4 

CON T-INUE 

ML=MC L+NA 

M3=MV4NA 

CALL CMP Y( VLUM3) p V2CM3)-oCLOMLD sCZUMED-9X 2s X2) 
TIL¢CM)=TILOIM) +X1 

TI2¢M)=TI20M) +X2 

TLL(NM)=TILINMD+X1 

TIZ CNM) =TI2(NM) +X2 

CONTINUE 

MC=NNA 

TIL (NA) =O 

TL2¢NA)=0 

00 93° :E=L,_NAM 

ML=MC4L 

M3=MV4L 

X5=2.*V1(M3) 

CALL CMPY(X5e0eCL (MED C2 (M1) 9 X1-9X2)- 
TLLUINAD=TILINAI4X1 

TIZ(NAD=TI2CNA) +X2 

CONTINUE 

M3=M3¢1 

CALL -CMPY(V1(M3) 5 V2¢M3)-5CL ONG) »C2(N4).9X1 9X2) 
TIL(NAD=TILINAD EXE 

TI2 (NA) =1.12(NA) 4X2 

RETURN 

END 

SUBROUTINE VOLT(T ¢K Vl 5V2) 
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DIMENSION V1(16920) eV2(16,20) 
CUMMGN NeNP oBKe ENePR1 eNAsNAM,NB-»NC eND yp NEy NNAs NNO? NNC, NND 


2489 SS=SINF(T) 
2492 S=COSFLT) 
2495 R=BKSS 
2498 LF(B=bet-5) Leled 
2503 L BAHL. 
2505 GU TU 3 
2506 2 B2=B*B 
2509 34=B2*K2 
2512 36=B4*B2 
2515 BA=(1.-d2/126+84/ 360.-B6/20160.) 
2530 . 3 MV=LK-L)*NA 
2535 BAS=BA*SS 
2538 DU 8 J=lyNA 
2542 ML=MVtJ 
b 2545 FJ=NA-J 
4 2549 AG=FU*B 
N 2552 SN=—-SINF(AG) 
We 2556 CS=COSF(AG) 
na 2559 VI(CM1) =CS#BAS 
, 2564 V2EM1) =SN*BAS 
i 2509 8 CUNTEENUE 
bs 2570 RETURN 
: END: 
i 2606 SUBROUTINE AVULT(CLeC2sVieV2eJe¥b be YL 2 Al Ad) 
F DIMENSION V1( 16020) 9V2( 16920} C1431 916) 62031 916) 
‘ COMMON Ny NP BKeENePR1 yNA yNAMyNG-yNC 9 ND 9NE oe NNAy NNig NNCeNND 
CUMMUN NleN2eN3—N4_eN5 
2612 2 X2=YL24C2(N4) 
2617 CALL COVD(C1( NZ), C2(N2) pCL (NG X24Al, AL) e 
2631 RETURN 
END- oe 
2659 SUBROUTINE POFMT( TLL) Th2ekTeSNiGA) 


DIMENSTON TIL(31) sT£2(3L)-¢GACS1435) 
COMMUN Ny NP yBKyENePR1 yNA pNAMeNG 9 NC y NU 9 NEo NNA yg NINE NNCoNNG 
TEEKT) 7) 897 


~ 


JI=TI2( I) *EN 
PECSETIL Sd + T1205) * T1652: 

ORTFA(DL) 

: TANF(TI2(JS)/TI1L(5)) 

Z2=72*PR1 ’ 
PRINT Se JoTILl( J) T1205) Zi 22 . 
FORMAT (3X e129 3H/3292Xe3F FO. 4et 92 4b) 

TEEKT):19 194 

ML=MAtJ- 

GAGM1 )=Z L¥SN 

M2=MB+J- 

GAEM2Z)=TT1L(S)¥*SN 

M3=MC-+J 

CM3)=TI2( 5) *SN 

bt CONAEINUE 


wn 


> 
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 @ 

| hates i 
2761 PRINT 2 My hn 
2765 2 FORMAT(CO2) A ae nM 
2766 RETURN ma Wy 

END psteatag' Gai 
2801 SUBRUUTINE GAIN( TIL sTI2¢KeV12V2-2C ONG, Py GA) ae 
DIMENSION TUL(31) pTEZ(31) VL 1652002V20616 220) GAL 31535) eA 
. CUMMUN NyNPyBKeENePR1 gNAyNAMsNByNCyND eo NE» NNAyNNBy NNC» NND mol 
2807 C=CONG/P NUNN 
2811 DO 1 b=1,18 Ra 
2814 XL=0 Ratan 
2817 X2=0 = 
2820 X5=0 RKARAY 
2823. ~— X6=0 raat! 
2826 MV=(L=L)*NA DNR 
2831 DU 2 J=leNAM Vs vets 
2835 MI=MV+J Bates 
2838 CALL CMPY(TIL(S) 9 TI2( J) oVLCMLI pVZEMED 9X39X4) asc 
24954 CALL CMPY(TIL(S) T1205) pVLOML) p—-VZEML) 9X7 9X8) en Sry 
2864 X1L=X1L4X3 RYAN 
2867 X2=XZ#X4- KOA 
2870 X5=Xd4X7 RO 
2873 XO=X64X8. RARNS ET 
2876 NJ=NP=J: ay: 
2879 CALL -CMPYACTI LIND) oTL2(NJ) VIL CME) -V2UML) 9 X3 9X4) 
2893 CALL CMPY-CTI LING) oTL2Z{NG) pVLCMED 9 V2CM1)-0%7 9X8) 
2901 X LEX L#X3: 
2904 X2=X24X4 
2907 X5=K5+X7 
: 2910 X6=X64K8- 
2913 2 CONTINUE 
2914 M1=M beb — - 
. 2917 Jeueb e aria 
2920 CALL -CMPYA-EILCJ) » TL2 (0) pVLOML) 90 9X3 9X4) is ne RY 
2934 X LEX b+X3° retaetag 
2937 X2=X24X4 Ra ; 
2940 X5=X5#X3 aii 
2943 XO=X64K4- pee” 
2946 DL=XL#XL+X2eX2 Ah . 
2953 D2=X5#X5+X6#X6 ASUS 
2960 MLS (b= LO+K ee a 
2966 GACMED2U01 ¥C te 
2971 M2=(35-L)#104K a 
2977 GACM2)=D2*C AME ASE 
2982 1 CONTINUE naen 
2983 RETURN Sah ? Ri 
END. oe os 
DIMENSION: C1( 31916) 9C2031 916) pGCLO)+ CLO) »TLLG32) »T12031) 


Le VEC6920) 9 V2 016920) pAA(40) SUZ) 9 VELA9) pe YLZ19) 9 

7 Z2BL-E5 eg SE0-9) sGACBL 35) op ZML UBL) pZM213 1). 9GD14) 9 TL (45), FM( 16531) 
COMMON: ‘Ng NP-pBKs ENePR1 #NAyNAMy NBo NC ¢ND NE» NNAy NNBo NNC» NND 
COMMON: NlyN2~¢N3eN4.N5 


3032 READ 25:2 PI-sTOAsAPeNeLAyLB 

3043 25 FORMAT(3E15~8 5313) 

3045 P-L=XCEKF tL) , 

3049 REWIND 3 

3051 REWIND 5 

3053 PRINT 57, TOA 

WT Basen 

| un i 
Be si 


Na! ee SA ee ao OM SLE CLs et OXSe 1 Fakta rp? res re 
Be . RG nt et a “oe ati fae rhs Os paonat srs Sete aaa as “oe tt Ky tus wow ¥ Bt ts feat 
oe Ag ais Kt A Af eter’ fons ort, pies hed ‘ natn 
SE Be UO re ER DCE I CT LA Rael Ah Ge A ee ABATE SRA Le ALN 
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‘bt FURMATCTHL/(2A) =F 8.1) 
READ le (BLUI) 512155) 
B1l(1)=-B101)*.25. 
B1(2)2-B1(2)*.35 
B1(4)=-B1(4)7.55 
B1(5)2-B1(597.65 
- FORMAT(E1L5.8) 
READ 32, (FM(J) 3411496) 
FORMATCL6A5) 
NP=N¢1 
FNP =NP 
NA=NP/2 
NAM=NA-1 
NB=3*NP/8 
NC=NP/4 
-ND=NP/8 
NE=NA4NC 
NNA=N*(NA-1) 
NNB=N*(NG—-1) 
NNC =N*#(NC=1) 
NND=N*(NO=1-) 
N1L=NNC#¥NC 
N2=NNC+NA 
N3=NNC4NE 
N4=NNAtNA 
N5=NNA4N 
PI2=PI72. 
PX=2.4P 17 FNP 
PR=P1/180. 
CON= 0376707%o376T07T/160/PE/PLIPI 
PRL=1./PR 
PG=1./4e/P1*.-376707 
11-3 =XCEKF EL) 
DO. 5 L=LAyLB 
- READ INPUL TAPE 52954e:CZMECE)¢121 9N)- 
READ INPUT TAPE 5954e4ZM2(00) 9 12=1)N) 
- FORMAT(-8E15.8) 
NO 27 T=1l,NA 
M1=(-I-1)*N41 
M2=MI+NAM 
READ INPUT TAPE 55 54.(CL( Jb) J=MbyM2) 
7 CONTINUE 
00: 92 1=1,NAM. 
ML=GI-1)4N¢e1 
M2=MI+NA~2 
READ INPUT TAPE 5254¢(GA(J),J2M1 6M2:) 
2 CUNT-INUE 
DU 93 L=LyNA 
M1L= I-13 #N4+1 
M2=M1+NAM 
‘READ INPUT TAPE 5254210 24-d)-¢ J2Mlis M2) 
: CON TINUE 
DO 94 T=1L,NAM 
ML=(CI-1)P*NtNAF] 
M2=M14NA-2 5 
READ INPUT TAPE 5554e(GA(J0s J2M1 M2) RTA 
CONTINUE re 
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3344 M3=NNA 

3346 M4=NNA#NP 

3349 vO 95 T=LyNAM 
3353 MC=L*N+1 

3357 MG=(NA~I-1) *N 
3363 DO 100 J=1+NAM 
4367 MC=MC—1L 

3370 MG=MG41 

3373 M2=MG+NA 

3376 CL(MC )=GA(MG) 
3380 C2(MC)=GA(MZ) 
3383 1CO CUNTINUE 
3384. M3=M3+1 

3387 M4=M4-1 

3390 CL(M4)=CL(M3) 
3394 C2(M4)=C2(M3) 
3396 95 CONTINUE 

3397 FLEL 

3400 TL(L) =.05*FL 
3403 89 EN=TLEL)/ FNP 
3407 BK=PX¥*TLAL) 
3410 BK2 =BK*BK 

3413 CONG=BK2*PG 
3416 BN=BK2*BK24*CUN 
3420 COND=8K2/P1/P 1/16 
3428 CONP=BK/P1/4. 
3434 LL=AP¥*TL(L) 
3438 FLI=LI 

$441 LF(FLI=AP#TL(IL) 1309-74 30 


CALCULATIUN OF INPUT ADMIEEANCES Gy 6 OF I 
3445 30 DO 3 K=ly4 


3448 MA= (5=K:)*NA/4 

3457 M1L=(MA=1L)*N+MA 

3463 G(K)P=CECML) 

3446 B(K)=C2(M1) 

3468 3 CUNTINUE 

3469 CALL AVOLT(C1 oC2—Vil-yV291 909 U9-Xl 99X25) 
3480 VLONAE=X15S 

3483- V2(NA}=—-X2S : 

3485 CALL CURRIC1 sC2rleeNColoVisVea Tiley Tl2) 
3496 G(5)=TELANC) 

3499 B(5)=EL2(NC) 

3501 CALL CURR(ICL L2s:byNE gly Vi oV2eTT 1s (12) 
3512 6(10)=3EL (NE) 


3515 
; 3517 L2=TLUL) /2. 
3522 FLZ=L2 . 
3525 TF(FLZ-TLIL)/20) 84948 
3531 9 DU 31 K=648 
$534 G(K) 2665) 
3536 B(K)=BC5) 
3538 = 31 CONTINUE 
3539 GO TO 44 
3540 8 ARG=PEZ*TL(L) 
3543 CT=COSF(ARG)/SINFA{ARG) 
3551 YL2 (64=~1e/ 6 6*CT 
19 
een Pes ee ORR AR II Le IRE IL IL IIE ALERT REA RON NAO NNR 
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3556 YL2(7) =-1-/.3*CT 
- 3561 YL2(8)=-10.*CT 

3564 DU 10 K=6e8 
3567 CALL AVOLIICL eC 2eVleV2elsOeYL2¢K) 9X1 9-X22). 
3578 VLOINA)=-X1 

‘4 3581 V2(NA)=2=-X2 
3543 CALL CURR(CL C2 eLeNColeVleV2eTIL »Vi2) 
3594 GIK)=TELINC) 
3597 B(K)=TI2(NC) 
3599 1Q0 CUNTINUE 
3600 G6(9)=CLIN1)4C1(N3) 
3605 B(9)=C2(N1)4C2(N3) 
3608 GO TQ 44 


V CacCULATION OF ECHO AREAS (MONOSTATIC AND 8IS:TATEC- 


IV ALSO», CURRENT ON SCATTERER LS PRINTED UUT FORK APPROPRIATE L/ 


3609 7 PRINT 33,5 IL{L) 

3614 M1l=21* 1641 

3618 M2=M1415 

3621 PRINT 20,5 (FM(1),T=M1 M2) 

3632 44 DU Ll K=l16 

3635. TA=15*%( 7-K) 

3642 T=TA¥*PR 

3645 CALL VOLT(T aK eVleV2) 

3651 11 CONTINUE 

3652 K=0 

3654 DU L2 KT=1s6 

3657 CALL CURRIC1sC2eKTeKTo3eVi o V2 o TI-d-p-f 122: 

3668 IFUKT/2*2-KT) 69496 

3676 4 KA=KT 

3678 KB=KT 

3680 GO TO 18 

3681 6 KA=] 

3683 KB=6 

3685 18 DU 53 KR=KAeKy 

3690 K=K+l1 

3693 R=0 

3696 A=0 

3699 MV=(KR-L)*NA 

3704 00 14 J=1,NAM 

3708 Mi=MVed 

371i CALL CMPY(VICML) o V2UML) op TLL Coo TI 26-SdX5.9:K69 
3720 R=R+X5 

3723 A=A$X6 

3726 NJ=NP=J 

3729 CALL CMPY(VL(M1) o-V20M1) e TI LONS) o TT 2 ENS:s:X5 9X6) 
3740 R=R+X5 

3743 A=A+X6 

3746 14 CONTINUE 

3747 M1L=M141 

3750 J=J+1 " 
3753 CALL CMPY(V1LUML) ey V2Z0M1) pTIL GS) TL] (Uh g X59 X6) 
3763 R=R+X5 

3766 A=A+X6 

3769 [F(K-1) 61,82,81 


3173 82 GDOCL) =R*COND 
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3776 GO 2) =A*COND 

3779 GD(3)=CUNP*TI-L(NA) 

3783 GD(4) =CONP*TI2(NA) 

3786 81 S(K)=BN*(R*R+A¥A) 

3795 S(K)=BN#(R¥REA¥A) 

3803 53 CONTINUE 

3804 LEC FLI-AP# TLL) )12,39912 
3809 39 1C=105-15#KT 

3813 ML=22*1641 

3817 M2=M1+15 

3820 PRINT 20+ (FM(I),1=M1.M2) 
3831 PRINT 40% IC 

3837 40 FORMAT(3X,19HANGLE OF INCTUENCE=13) 
3842 M1=20*16+1 

3847 M2=M1415 

3850 PRINT 20, (EM(IT) + L=M1L—eM2) 
3861 SN=1L./SINF(FLOATE (IC) *PR) 
3868 CALL POFMI( TELeT12eKT sSNyGA) 


3875 12 CONTINUE 

3877 70 FORMAT(OX46HMAGNITUDE OF CURRENT (MILLIAMPS) WHEN PARALLEL/OX47HCU 
LMPONENT OF INCIDENT FIELD=UNE VOLT/WAVELENGTH): ; 

3899 71 FURMATI6X46HREAL PART UF CURRENT (MILLIAMPS) WHEN PARALLEL/6X47hCO 
LMPONENT OF INCIDENT FIELG=ONtE VOLT/ WAVELENGTH): 

3922 72 FORMAT(OXSLHEMAGINARY PART GF CURRENT (MILLIAMPS) WHEN PARALLEL /6X 
L47HCUMPONENT UF INCIDENT FIELD=0NE VOLT/WAVELENGTH) 


; 
) 
Fe 
i 
nf 
F 
r) 
K 
ei 
d 


3946 7:3 FORMAT (4X 3HXZL 7XGHANG=9 0 4X6HANG=7 54 X6 HANG =604XGHANG=454X6HANG=304X | 
LGHANG=15) 
3960 [EC FL L-AP#TLALD:) 875 88987 
: 3966 68 00 75 K=1l93 
3969. GO TO (7647778)5 K 
3975 76 PRINT 70 
3978 GO TO 79 
3979 77 PRINT 71 
3982 GO TO 79 oar we 
3983 78 PRINT 72 oe 
3986 79 PRINT 73 oe 
3989 KL=6#(K~L)#N. eee 
3997 00 8G J=lyN pete 
4001 K2=K1l+J Sane 
4004 K3=K2+5%N Renan 
4008 PRINT 74, JatGA(KK) ¢KK=K29K39N) ' 
i 4025 74 FORMAT ( 3X» L2:3H/3212X16F 10.4) sr 
ay 4029 80 CONTINUE Sheth 
4031 PRINT 49 eke 
4034 75 CONTINUE to 
VI -EGHO AREAS UF CENTER LUADED SCATTEREKs TRANSMITTER ANGLEE=90 Abi 
4035 87 YL1(1)=0 SRT 
4038 YL2(1)==CZ(N4 pate 
4041 DO 13 J=253 ee Sine 
4044 YLL(J)=0 ty 
4047 YL24J)=B1( J=1)d7 TLL) tat 
4051 £3 CONTINUE Pitot 
4052 YLL(4)=0 ae 
4055 YL2(4)=0 ny 
4058 DU 96 J=546 es , 
4061 YLL(J)=0 Ky 
i} 
151 & 
SALTS TAR | SOA STN YI RN Sa RIS 4 aK ow : YO Wan ae Cay a Wn Ce i, 
Ista SOR COE UNSER NUaES aS RGSS SERS RUS GRNR On RCN eee eT 
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4064 
4067 
4068 
4071 
4073 
4077 
4080 
4084 
4087 
4098 
4101 
4103 
4105 
4109 
4112 
4115 
4117 
4118 
4121 
4125 
4128 
4136 
4140 
4143 
4146 
4149 
4152 
4160 
4167 
4171 
4174 
4179 
4182 
4183 
4191 
4198 
4201 
4206 
4209 
4212 
4215 
4219 
4227 
4230 
4233 
4236 
4247 
4250 
4253 
4254 
4263 
4266 
4269 
4277 


96 


97 


16 


15 


YLZES9=BL(J-1L)* TLL) 
CONTINUE 
YL1¢7)=C1(N4) 
YL2¢-7.) =-C 2(N4) 
YLL(8)=12/-075 
YL2(8)=0 

YLECQ}=H1L./5 3 
YL2.69)=0 

CALL CURRIC L»C2eleoley3eVieV2,EEyTi2) 
X7=EEL(UNA) 
XB8=TE2Z(NA) 

MV=NA 

DO 97 J=lyN 

ML=MV+J 
VLEMLIETILOJ) 
V2¢ML)=TI2(4) 
CUN-T-INUE 

DO Ls J=1s9 
X3SCLIN4) +YL105) 
X4=C2(N4)4YL2( 5) 
CALL CDVDIX7 XB 9X39X4 9X5 9XO): 
DU. -98 K=L,NAM 
NK=NP—K 

ML=NNA+K 

M2=MV-4+K 


M3=MV4NK 


S1L=X54CL(M1)-X6*C20M1) 
S2=X6*C LIML)+X5*C2(M1) 
TEBEK)=VL(M2)-51 
TI2ZCK)=V2(M2)-S2 
T-ERCNK)=V1L(M3)-S1 

E2ENK) =V2 (M3 )-S2 


i =X54CL(N4I- -X6*C2(N4) 
$23 XOPCL(NG) #X5HC2 UNG) 
M2=M2+1 
“EEGNA)=V1LOM2)-S1 
NA)=V2(M2)-S2 


R=: 


DU. Fo. K=1_,NAM 

CALE -CMPY(TIL(K) o TL2(K) eVECKEV2UK) 9X1 9X2) 
R=REX1 

A=K+X2 

NK=NP—-K : 

CALL CMPY(TILONK) pTI2(NK) pVIEEK) e-V2(K) XL 9X2) 
R=R#X 1 

A=K4XK2 

CUNZETNUE 

CALL CMPY(TLA(NA) ¢TI2 (NA) pV-EENAD 9 V2(NA) 9X1 9X2) 


-COk NUE 
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4283 37 PRINT 33% TLOL) 
4289 33 FURMAT(LLHL/( LAMBDA) =F5.2) 
| 4293 Mi= 16#19+1 
4297 M2=ML+8 
- 4300 M3=M2+41 
4303 M4=M3+6 
4306 PRINT 20, (FM(1),1=ML—M2) 
; 4317 PRINT 66, (FM(1)¢1=M30M4) wt 
: 4329 66 FURMAT(5X+7A5) Pr 
| 4330 DO 34 1=1+18 rit 
4334 AAC 1)=5*1 we 
4338 NI=36-1 A 
4341 AA(NE) =5*NI ran ttc 
4346 AR=AA(1T)#PR preeates chan 
4349 CALL VOLT(AReIyVleV2) @ 
4355 34 CUNTINUE wi 
4356 EN=L. Sf ne 
4358 KT=0 Oe 
4360 DO 35 K=194 ue 
1 4363 KK=05-K) #NA/4 BURY 
: 4372 ML= KK=1) #N 
4377 DO 36 J=leN 
4381 M2=MiL+J 33 
4384 
é 4387 
— 4389 
: 4390 
4.393 
4403 
‘ 4405 
! 4407 (K+Z)* LO+L 
4413 M2=Mact bb 
4416 432 20*1L6+1 
: 4420 M4=M3415 
4423 PRINT 209 (FM(1),1=ML—M2) 
, 4434 PRINT 20, (FM(L) sT=M3-9M4) 
! 4445 CALE PUFMI( TI Ly T12:KT-+SN GA) 
I 4452 35 CUNT:INUE 
i 4453 CALL AVUOLT(C1L lL 2eVE eV 291 9090eX) X22) 
- 446% MV=NA¥L9 
4467 VIECMV) ==X1 
4470 V2(MV)=-X2 
4472 CALE CURR(C1¢C2oeE9eNAg2 pVi V2 5 TEL ylt2) 
4483 G &5)=44 LONC) 
4486 B(-5:):=4-12 (NC) 
4488 GELOM=TI LINE) 
4491 BELO)=TI2Z(NE) 
4493 =TEE(NC) 
4495 CALE GAIN( TIL y TI d ¢ 5:Vl-9 Ve eC UNG » Py GA. 
4505 M1=7# 1641 
4509 M2=Mi+15 
4512 M3=20* 1641 
4516 M4=M3+15 
45149 PRENT 205 (FM(1)o-T=M1)M2) 
4530 PRINT 209 (FM(T) st=M3.9M4) 
4541 CAEL -POFMT( TI Ly TE2¢KT¢SNyGA) 
4548 L2=FL(L)/2. 
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SOUR Raa anne anor ane aca acacytazecancacme ona mam nanan 


AeA NS PP As oe ea . 
FE Pe a, eA ER ee PE AR SO CA Ce ES eM eS ee Oe eS ee eee eee eS eee ——e——=—e————eEeErr elle 


4993 FLZ=L2 


4556 IF(FL2-TLILI/20) 42941042 
4562 41 DO 43 K=6e8 
4565 G(K)=6(5) 
4567 B(K) =B(5) 
‘i 4569 ML=(K+2)# 164k 
4575 Mz=M1¢5 
4578 M3=M2¢1 
q 4581 M4=M3+9 
4584 PRINT 209 (FM(I),1=M19M2) 
4595 PRINT 209 (EM(I)»1=M3—M4) 
4606 ML=20#16+1 
i 4610 M2=M1415 
‘ 4613 PRINT 209 (EM(1))L=M1 M2) 
4624 CALL POEMT( Tide T129 KT 9SNeGA) 
4631 DO 45 J21,35 
% 4634 MA=(J-19*10 
» 4639 ML=MA+K 
) 4642 M2=MAC5 
nt) 4645 GACML)=GA (M2): 
4649 45 CONTINUE 
“| 4650 43 CONTINUE 
, 4651 GO TO 48 
1 4652 42 ARG=P12®TL(L): 
ra 4655 CT=CUSFLARGI/SINE (ARG) 
\ 4663 YL2(6)=-Le/o64CT 
3 4668 YL2(7)=-Le/634CT 
rf] 4673 YL2(8)=-10.8C1 
4676 DO 46 K=6e8 
J 4679 CALL AVULTICL C29 VL eV2eleOeYL2(K) XL 9X2) 
*) 4690 VLOMV) ==X1 
4693 V2(MVI==X2 
4695 CALL CURRICT C21 9eNAe2 eV V2ie TIL TI2) 
4706. G(K 9=TLLEANC). 
4109 B(K)=TI2¢NC2): 
na) 4711 P=TIL{NC) _ 
St 4713 CALL GAINCEEDsT129K9V19V2 eCONGs PGA) 
” 4723 ML=(K42)* 1L64L 
ne 4729 M2=M145 
a 4732 M3=M241 
i, 4735 M4G=M349 
> 4738. M5=20#16+41 
j 4742 MO=M5+15 
| 4745 PRINT 20, CEMEI)»1=M1.M2) 
4756. PRINT 20¢ CEMEI) » 1=M39M4) 
4767. PRINT 209 4EM(1)_1=M5eM6) 
4778: CALL POFMY(A1ELs TI 2, KT eSNyGAP 


4785 46 CONTINUE 

4786 48 DO 47 J=lkyNA 

4790 NJ=NP=J 

4793 MI=NNC+J 

4796 M2=NNC+NJ 

4799 TEL(J)=CLUMEV4+O1 (M2) 
4804 TI2¢J)=C20M24 

4807 TILI NS) = TREC: 

48 10- TI2(NJD=TI26N) 

4812 47 CONTINUE 
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PR ae a ee 
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4813 
4816 
4818 
482l 
4831 
4835 
4838 


4845 
4856 
4867 
4874 
4878 
4881 
4885 
4888 
4899 
4910 
4913 
4919 
4922 


: 
! 
i 
| : 4842 
' 
i 
\ 
' 
: 
' 


GI9)STLILOCNC) 

B(9)=TI2CNC) 

P=2.*TILONC) 

CALL GAIN(TI1,T12299V1L9V2sCUNGsPyGA) 
M1=11*1641 

M2=M1415 

M3=20*16+]) 

M4=M34+15 

PRINT 205 (FM(I-),1=M1.M2) 
PRINT 20¢ (FM(T)s12=M35M4) 
CALL POFMT(TIL,TI2—sKT»SNyGA) 
M1L=23¥* 1641 

M2=M1415 

M3=24*16+1 

M4=M3423 

PRINT 20¢ (CFEM( Ihe L=M1,M2) 
PRINT 2004FM(1) 9:0 =M39M4): 

DO 51 J=1,35 

M1=(J-1)*10+1 

M2=ML+8 

PRINT 52-9. AAUJ) sfGA(K) 9 K=M1 9 M2) 


MARANA AB AS FE ASTER NENA ARONA 


4936 52 FORMAT( 3X9b 4007 9F 924) 
4939 51 CONTINUE 
4940 PRINT 49: 
4944 49 FORMAT(CO2) 
A945 DO 58 K=le6 
4948 J=21-34K 
4952 CALL CURRACL»C2 ed r0rs eV V2 oT Ely TI2) 
4963 P=0 
_ s 4966 MA=( J—1)%NA 
{ 4971 DO 59 L=1eyNAM 
| 4975 MI=MA4] 
1978 P=P+VL(MLISTILCE) ¢V2¢ML94T 12019 
4987 NI=NP-I 
ij 4990 PSP4VL(MLISTILONE -VZUME) ®TI2 (NED 
iq 4999 59 CUNTINUE 
‘ 5600 [=L+1 - 
; 5003 ME=MLtL 
506 PSP+VL(MLD TI LC E+V20MLI*TI 20 
i 5016 CALL GAIN(CTI Ls Tl2eKe V1 yp V2 CONG 9 Py GA) 
i 5026 58 CONTINUE 
5027 ML=28*16+1 
5031 M2=M14+15 
5034 M3=M2+1 
i 5037 MG=M3+7 
, 5040 Mb5=M449 
f 5043 M6=M5415 ; 
5046 PRINT 209 (FEM(I}s1=M1_M29 
5057 PRINT 209 (FM(1)s1=M3 M4) 
; 2068 PRINT 209 £ EMCI )e¢:1=M5 9 M64 
H 5079 NO 63 J=by35 
5082 Mb=(J=1L #1041 
) 50 88 M2=M1+5 
| SO9L PRINT 52: AAJ) o:€GA(K) sK=ML 9M2) 
5104 63 CONTINUE 
5105 PRINT 49 
' 5108 86 WRETE QUEPUT TAPE 3+68¢(G(U) 9 Jed LO) 9 (BCS) d= be 10) (SUS) y Sele Zh dof 
| 155 a 
OREO RGN) EURSOMOR TON LRRB DOT ae ROD RCC OAM me SST TT 
naa Aidit TA Le Re POE OREO NSRSR Pee UR ANNAN IRN NE 


é r ae Ee. Pas z £ DLO ar Ae 
WL, WA WALA DOA OMe PS ee ee er i eee cee te oe 


LSL( J) oS 2199) eo (GDI) pel, 4) 
5143 68 FORMATI BEL5.8) 


5144 5 CONTINUE 

5146. END FILE 3 

5148 REWIND 3 

5150 TT6=XCLKF(L) 

5153- DU 69 L=LAeLB 

5158 JL=(L~LA) #5441 

5164 J2=J1+53 

5167 READ INPUT TAPE3+68,(C1 (JN) se JtUleJ2) 


5179 69 CONTINUE 


PRINT UUT INPUT QUANTITIES OF f 


5180 PRINT 20, (FM(I),1=1,16) 

5190 20 FORMAT(24A5) 

5191 DO 19 K=1,10 

5155. Mi=(K¢2)# 1641 

$201 MZ=M1+L5. 

5204 PRINT 20, (CEME{L))I=M19M2) 
5215 IF (K-10) 64465764 

6219 65 Ml=13#16¢41 

5223: M2=M1+15 a 

5226 PRINT ZO. (FMCL))1=M1 M2) 
5237 64 Ml=l7 

5239 M2=ML¢23: 

5242 PRINT 20% (FM(L),T=ML M2) 
5253 OO 21 L=LAyLB 

5258 JL=(L-LAD #5 4¢K , 
5264. J2=JL+10 

5267 DEC LC JPIRCL(JLIFC1( U20# C1102) 
5276. L1=SORTE(D) 

5279: L2=ATANFAUCA(J20/C 14 SED 

5284 22=Z2*PR1 

5287 L£3=C1( JE) /0 

5291 24==C1(d2)/0 

5295 L5=1./L4: 

5299: 262-22 _ 

530L PRINT 22% TLOLD CAC JLo CA(J2) 9 Zh 9 L2-023 94925926 


5318: 22 FURMATUEB2292Xe SE 1004 F100) pSFI00 49 F101) 
5325. 21 CUNTINUE 
5326. PRINT 49 
5329: 19 CONTINUE 


PRENT OUT OF ECHO AREAS V 


5330: ML=14*16+4 
5334. M2=ML+15 
5337 M3=M2+1 
5340: MG=M3415. 
5345 PRINT. 20% (FM(1),1=M1-9M2) 
5354 PRINT 20% (FM(1),1=M3.9M4) 
5365. DO 23 L=LAyLB : 
5370 J1=(L-LA) #54421 

4 5316 J2=J1+6- 
by} 5379: PRINT 509 TLELD (Cl (oly Fed] p52) 


5393: 50 FORMATUF8.292Xe TF 10.5): 
5396. 23 CUNTINUE 
et 5398: PRINT 49 
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5401 ML=1L6*164+1 
5405 M2=ML+15 
5408 PRINT 209 (FM(T)¢L=MLyM2) 
| 5419 DO 24 L=LAyLU 
5424 JL=(L-LA) #54428 
5430 J2=d14+6 
| 5433 PRINT 50, IL(L) (CLUD)eT2dl Je} 
5446 24 CONTINUE 
i S447 PRINT 49 
5450 M3=M2¢1 
5453 M4=M3+15 
5456 PRINT 20, (EMCI), 1=M39M4) 
5467 NU 56 L=LAyLB 
5472 JL=(E-LA) #54435 
5478 J2=J1+6 
f 5481 PRINT 50, TLUL) o(GL(L lesb yJ2) 
5494 56 CONT LNUE 
5495 PRINT 49 
PRINT UUT FUR CENTER LUADED SCATTERER VI 
5498 Mb>=M441 
5501 MO=M5415 
t 5504 PRINT 20) (FMEl))T=M5—9M6) 
5515 M1=26*16+1 
5519 M2=M L423 
Lo. 6522 PRINT 209 (FMEL)»1=ML—M2) 
5533 DO 26 L=LAyLB. 
55338 JL=(LELA) #54442 
P 5544 J2=JdE+8 
5547 PRINT 62) TLGLI (Cl (Ld Ted) p20 


S56L 62 FORMAT(F8.2+2%,9F 9.5) 

5564 26 CUNT-ENUE 

5265 PRINT 49 

5569 83 FORMAT(50HVEEL PRIMED ADMITTANCE PARAMETERS (MILLIMHOS ) FOR/OX41H 
ICCNTER LOADED: SCATTERER» NORMAL INCIDENCE) 

5590 84 FORMAT(50H L/( LAMBDA) RE DYLL = IM DYLL RE Y¥12 IM Y12) 


Ee ee ee 


5002 PRINT 83 
5605 PRINT 84 
5608 DU 85 L=LA,LB 
5613 JI=CL-LA) #54451 
5619 J2=ud+3 
5622 PRINT 50, TLE) s(CL(1iyl2Jl 9J2) 
5635 85 CUNTENUE 
5636 PRINT 49 
5639 REWIND 5 
6641 TYPE 29 
5645 29 FORMAT(27HDISMOUNT TAPE 2017 AND SAVE) 
5651 STOP 
END 
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DATA (Representative for L/2A = 10) 


ST=ONV OE =ONV SV=ONV O9=ONV SL=ONV O6=9NV VisHl 
SONSBGIDNI 3G SS TONV SHOLAVA 
*63y1M GSGVOINN HOS (VLSHL)O NYSLLVd YSMOd GaysLLIVIS LIA 
(lds ( 
H)S (9)S (3)S (3)S (G)Ss (3)S (u)S (V)S CVUSWV1)71 
! osivu 
H NIV9 ‘ NIVS d NIV9O 3 NIV G NIV9O > NIVY yu NIV9 VY WIVO vishl 
I JO S3A1HNG GNV SGVO1 SNOIYVA SHL YOd (VL3SHLIO N&siivd NIV9 wshMvada IIl 
HLONSTSAVM YSd LIOA 3NU=CTSIS LWSCI NI 


ZONAGIDNI 3O SEIOWV SNOLYVA BOS (Sdwvi Vin) LNaudid Al 
I UNV I UVN I wl T sa VX 
LIOA SNO=33uNo0s *SdvO1 GNV SSAIad SNOLYVA YOS (SPWVITIIW) LNocdNd ViNWALNY I1 
(JDNAHGIDNI sUISdvOyg) YsAYsLLVDS GsGvO? YOS (dsavloes VuuWV 1)/SVadv UHI IA 
(NYS (L)S (SOS (ays (O)Ss (d)S (GIS CVO GAY) Zh 
(NYS (h)S (WS (ays (FS (12S. (HIS (VlodwVI) 7/1 
(9)S (4)S (3)S GIS, DIS i Y'),S, VES OVGEWT D7 
(G3avNOS VGENV) ASVAUV OHD] DhLWLSibg GNV DIVLSONOW A 


YAWNSD WOYS H/T ENTOd LAGENO “YBLNSD Lv OFA 
‘YSLNSD SSO 7/1 3DYNOS SSBONVASdWI YO SSONVLLIWGV TWALAW  (F 
YSLNSD Lv 3NVId GNNOND SysLwad 4350 %/7 adaNOS (1 


YSLN3D Lv SOHW (7/19) LOD(UUT/F-)=A ‘6yg.NaD ddu 7/7 aQano0s  (H 
UsLNID LV SOHW (7/75) LOD(CCE/C-)=A ‘ydINSD 4d0 9/7 soeNCS ty 
MSLND LV SGHW (7/719) LOD(UL9/~F=—) =A ‘ydlNsdD 3aC 2/1 doanus (4 


wsSLNSD Lv LFA Susdiwad sau 7/7 Soallu> (4 
wolnsadD Jgsav w/e svalivs CG 
uyslwsad 3saU ¥/1 sdaiiVd (> 
galwad sav 8/1 svalivus (u 


galway Lv sldsius (v 


Zo unNnv 

Z OVIN x uy A UNV A OVW d y (Vudwv))/1 
(SwHO-O1I>) SSINVIFdWI UNV (SOHY ITIIw) SsDNVLILIWGV LfidNt fl 
10 sade 6ov79LlTts?*O 
LU sadvvSGlyydc*o 
VUTALUGUOCUUL PO 
CU aYevo&Lyvl eo 
- LU sbL7ov98L°U 
ZYOTUUTE Lutsauu0uuuu7*y ZUta0buUV0ULeU LutascoSLVleeu 
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